home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2000-12-14 | 1.4 KB | 61 lines |
- "FILE"="Xteq Systems X-Setup Plugin 5.0"
- "TYPE"="7"
- "COUNT"="3"
- "UIPATH"="Appearance\Desktop\Wallpaper"
- "NAME"="Wallpaper Style"
- "VERSION"="2.01"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Display wallpaper as is (Default)"
- "TEXT 2"="Tile wallpaper until screen is filled"
- "TEXT 3"="Stretch wallpaper to fit screen"
- "DESCRIPTION 1"="This allows you to change the appearance of your background wallpaper."
- "AUTHOR"="Xteq Systems"
- "CONTACTURL"="http://www.xteq.com"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"=" "
- "COMMENT 2"="Thanks to CptSiskoX!"
- "COMMENT 3"="Thanks to SMσK [mailto:smak-@gmx.net] for the bug-fix!"
-
-
- sV1="HKEY_CURRENT_USER\Control Panel\Desktop\WallpaperStyle" 'STR
- sV2="HKEY_CURRENT_USER\Control Panel\Desktop\TileWallpaper" 'str
- Sub Plugin_Initialize
-
- i=RegReadValue(sV1)
- if i="0" then
- SetUiElement 1,true
- elseif i="1" then
- SetUiElement 2,true
- elseif i="2" then
- SetUiElement 3,true
- end if
-
- End Sub
-
-
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
-
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- if GetUIElement(1)=true then
- i1=0
- i2=0
- elseif GetUIElement(2)=true then
- i1=0
- i2=1
- else
- i1=2
- i2=0
- end if
- Call RegWriteValue(sV1,i1,1)
- Call RegWriteValue(sV2,i2,1)
-
- Call Logoff()
- End Sub
-
-
- Sub Plugin_Terminate
- End Sub
-